open(BUFF," /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/filename");
$name = 0;
while($line = <BUFF> )
{
	
	chomp($line);
	#print "nar $line\n";
	system("cp /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/CELFILES/$line /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/temp1/");
	system("gunzip /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/temp1/$line");
	for($i=1;$i<49;$i++)
	{
		$line = <BUFF>;
		chomp($line);
		 system("cp /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/CELFILES/$line /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/temp1/");
        system("gunzip /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/temp1/$line");
	}
	$name ++;
	
	system("sh test.csh");
	system("rm /data1/bsi/BORA_processing/devel/Yan_GEO/barcode_present_absent/temp1/*");
}
